home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / nan_news / toolkit / logout.asm < prev    next >
Assembly Source File  |  1991-08-15  |  3KB  |  82 lines
  1. ; File......: LOGOUT.ASM
  2. ; Author....: James R. Zack
  3. ; CIS ID....: 75410,1567
  4. ; Date......: $Date:   15 Aug 1991 23:06:56  $
  5. ; Revision..: $Revision:   1.2  $
  6. ; Log File..: $Logfile:   E:/nanfor/src/logout.asv  $
  7. ;
  8. ; This is an original work by James R. Zack and is placed in the
  9. ; public domain.
  10. ;
  11. ; Modification history:
  12. ; ---------------------
  13. ;
  14. ; $Log:   E:/nanfor/src/logout.asv  $
  15. ;  
  16. ;     Rev 1.2   15 Aug 1991 23:06:56   GLENN
  17. ;  Forest Belt proofread/edited/cleaned up doc
  18. ;  
  19. ;     Rev 1.1   14 Jun 1991 19:54:42   GLENN
  20. ;  Minor edit to file header
  21. ;  
  22. ;     Rev 1.0   01 Apr 1991 01:03:30   GLENN
  23. ;  Nanforum Toolkit
  24. ;  
  25. ;
  26.  
  27.  
  28. ; $DOC$
  29. ; $FUNCNAME$
  30. ;     FT_LOGOUT()
  31. ; $CATEGORY$
  32. ;     NetWare
  33. ; $ONELINER$
  34. ;     Logout from all currently connected NetWare file servers
  35. ; $SYNTAX$
  36. ;     FT_LOGOUT() -> NIL
  37. ; $ARGUMENTS$
  38. ;     None
  39. ; $RETURNS$
  40. ;     NIL
  41. ; $DESCRIPTION$
  42. ;    This routine is used to log the current user out of all connected file
  43. ;    servers and return control back to Clipper.  This is handy for writing
  44. ;    your own login screens in Clipper.  After the FT_LOGOUT() function is
  45. ;    called, you could have a login screen come up, and the users would
  46. ;    never see the DOS prompt again!
  47. ;
  48. ;    This routine was designed and written for Advanced NetWare 286 v 2.0 or
  49. ;    NetWare 386 v 3.0 or better.  It has been tested on Advanced NetWare 286
  50. ;    v 2.15 rev A & C, NetWare 386 v 3.0.
  51. ;    
  52. ;    Written in Microsoft MASM v5.1
  53. ; $EXAMPLES$
  54. ;    FT_LOGOUT()
  55. ;    DO LOGINPRG
  56. ; $END$
  57.  
  58. PUBLIC    FT_LOGOUT                  ; Declare routine public
  59. EXTRN     __RET:FAR                  ; Declare externals
  60.  
  61. _NanFor   SEGMENT 'CODE'             ; Code segment
  62.           ASSUME  cs:_NanFor         ; Point segment regs to right place
  63. FT_LOGOUT PROC    FAR                ; Declare routine far
  64.           push    bp                 ; Save base pointer
  65.           mov     bp,sp              ; Point to top of stack
  66.           push    ds                 ; Save data segment
  67.           push    es                 ; Save extra segment
  68.           push    si                 ; Save source index
  69.           push    di                 ; Save destination index
  70.           mov     ah,0d7h            ; Novell NetWare API Function 0d7h
  71.           int     21h                ; Logout from all file servers
  72.           pop     di                 ; Restore environment
  73.           pop     si
  74.           pop     es
  75.           pop     ds
  76.           pop     bp
  77.           call    __RET              ; Get outta here and back to clipper
  78.           ret                        ; Pass control back to clipper
  79. FT_LOGOUT ENDP
  80. _NanFor   ENDS
  81.           END
  82.